home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00384_Field_384.txt < prev    next >
Text File  |  1994-06-14  |  1KB  |  30 lines
  1. MECH ,  79  , "aBall" parent script, the birth handler
  2. --┬Ñ┬Ñ The Ball script ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ┬Ñ
  3. global gConstrainSprite,gHandCursor
  4. property mySprite, velocityV, velocityH,ground ,vacArea, soundNum,├é
  5.          myPosition,myPartsList,vacSuction,inSuction, lastPartTouched,├é
  6.          maxParts,gravityConst
  7.  
  8. on birth me , ballSprite , thePartsList
  9.   -- Declare instance attributes of new ball.
  10.   
  11.   set soundNum = 1
  12.   set inSuction = FALSE
  13.   Set mySprite = ballSprite                -- In which channel is this ball located.
  14.   set gravityConst = 16
  15.   mSetHorzVelocity me,0 
  16.   mSetVertVelocity me,1
  17.   set vacSuction = 10
  18.   set lastPartTouched = 0
  19.   set maxParts = 0                         -- 1 greater then total on board,
  20.   -- 
  21.   puppetSprite ballSprite, TRUE            -- set up sprite number to work with
  22.   set the type of sprite ballSprite to 1   -- actor = bitmap
  23.   set the ink of sprite ballSprite to 8    -- matte mode
  24.   put the height of sprite ballSprite into ballHeight 
  25.   set vacArea = the bottom of sprite gConstrainSprite - 2*(ballHeight)
  26.   set ground = the bottom of sprite gConstrainSprite - ballHeight/2
  27.   set myPartsList = thePartsList
  28.   set the cursor of sprite   mySprite = gHandCursor
  29.   return me
  30. end birth